home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / bird flight (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  3KB  |  136 lines
  1. 100 V=53248
  2. 101 PRINT"[147]READING SPRITE DATA"
  3. 105 GOSUB10000
  4. 110 POKEV+0,78:POKEV+1,150:POKEV+16,0
  5. 115 POKEV+2,165:POKEV+3,136
  6. 120 PT=2040:POKEPT,192
  7. 130 POKEPT+1,197
  8. 135 POKEV+39,0:POKEV+40,8
  9. 136 POKEV+23,2:POKEV+29,2
  10. 140 GOSUB1000
  11. 145 POKEV+21,3:POKEV+27,1
  12. 146 FORI=1TO1000:POKEPT+1,197+INT(I/201)
  13. 147 IFI=500THENPOKEV+33,12
  14. 148 IFI=750THENPOKEV+33,6
  15. 149 NEXT
  16. 150 FORI=1TO4
  17. 160 FORJ=1TO50:NEXT
  18. 170 POKEPT,192+I
  19. 180 NEXTI
  20. 190 POKEV+40,7:POKEV+33,14:SY=136
  21. 200 FORX=78TO500STEP2
  22. 205 FL=RND(1)*2-1
  23. 206 IFX>343THENPOKEV+21,2
  24. 210 POKEV+0,XAND255:POKEV+1,154+INT(-X/10+FL):IFX>255THENPOKEV+16,1
  25. 215 POKEPT,195-((XAND7)>3)
  26. 220 SY=SY+((XAND15)>13):POKEV+3,SY
  27. 230 NEXTX
  28. 900 GETT$:IFT$=""THEN900
  29. 910 IFT$="[209]"THENPOKEV+21:END
  30. 999 GOTO110
  31. 1000 POKEV+33,11:POKEV+32,0
  32. 1010 PRINT"[147][144][208] [146][207]"
  33. 1020 PRINT"      [144]                                  ";
  34. 1030 PRINT"      [144]                                  ";
  35. 1040 PRINT"                                        ";
  36. 1050 PRINT"                                        ";
  37. 1060 PRINT"                                        ";
  38. 1070 PRINT"                                        ";
  39. 1080 PRINT"                                        ";
  40. 1090 PRINT"                                        ";
  41. 1190 PRINT"                                       [157]"CHR$(148)" [146]";
  42. 1200 PRINT"";
  43. 1300 BK$="[157][157][157][157][157][157]"
  44. 3000 PRINT"  [209][209]  ";BK$;
  45. 3010 PRINT" [209][209][215]* ";BK$;
  46. 3020 PRINT"[209][215][209][209][209]*";BK$;
  47. 3030 PRINT"*[209][215]*#[209]";BK$;
  48. 3040 PRINT" \*[209][209]@";BK$;
  49. 3050 PRINT" [209]@[209][209] ";BK$;
  50. 3060 PRINT"[149] [146]"BK$;
  51. 3070 PRINT"[149] [146]"BK$;
  52. 3080 RETURN
  53. 10000 MEM=12288:FORI= 0 TO 79 :FORJ=0TO7
  54. 10010 READXX:POKEMEM+I*8+J,XX:NEXTJ,I
  55. 10020 RETURN
  56. 10030 DATA0,0,0,0,0,0,0,0
  57. 10040 DATA0,0,0,0,0,0,0,0
  58. 10050 DATA0,0,0,0,0,0,0,0
  59. 10060 DATA0,0,0,0,0,0,0,0
  60. 10070 DATA0,0,192,0,1,176,0,3
  61. 10080 DATA192,0,7,128,0,15,128,0
  62. 10090 DATA31,128,0,63,0,0,100,0
  63. 10100 DATA0,198,0,0,0,0,0,10
  64. 10110 DATA0,0,0,0,0,0,0,0
  65. 10120 DATA0,0,0,0,0,0,0,0
  66. 10130 DATA0,0,0,0,0,0,0,0
  67. 10140 DATA0,0,0,0,0,0,0,0
  68. 10150 DATA0,0,96,0,0,216,0,1
  69. 10160 DATA224,0,7,128,0,15,192,0
  70. 10170 DATA31,224,0,127,240,0,228,0
  71. 10180 DATA0,198,0,0,0,0,0,14
  72. 10190 DATA0,0,0,0,0,0,0,0
  73. 10200 DATA0,0,0,0,0,0,0,0
  74. 10210 DATA32,0,0,96,0,0,96,0
  75. 10220 DATA0,102,0,0,253,128,0,254
  76. 10230 DATA0,1,248,0,3,240,0,7
  77. 10240 DATA192,0,13,0,0,26,0,0
  78. 10250 DATA48,0,0,0,0,0,0,0
  79. 10260 DATA0,0,0,0,0,0,0,255
  80. 10270 DATA0,0,0,0,0,0,0,0
  81. 10280 DATA0,0,0,0,0,0,0,0
  82. 10290 DATA0,0,0,0,0,0,0,0
  83. 10300 DATA0,0,12,3,255,251,1,255
  84. 10310 DATA252,0,47,224,0,71,128,0
  85. 10320 DATA3,128,0,1,128,0,0,128
  86. 10330 DATA0,0,0,0,0,0,0,0
  87. 10340 DATA0,0,0,0,0,0,0,250
  88. 10350 DATA0,0,0,0,0,0,0,0
  89. 10360 DATA0,0,0,64,0,0,192,0
  90. 10370 DATA0,192,0,1,192,0,3,192
  91. 10380 DATA0,7,204,3,255,251,1,255
  92. 10390 DATA252,0,23,224,0,32,0,0
  93. 10400 DATA0,0,0,0,0,0,0,0
  94. 10410 DATA0,0,0,0,0,0,0,0
  95. 10420 DATA0,0,0,0,0,0,0,10
  96. 10430 DATA0,0,0,0,0,0,0,0
  97. 10440 DATA0,0,0,0,0,0,0,0
  98. 10450 DATA0,0,0,0,0,0,0,0
  99. 10460 DATA0,0,0,0,0,0,0,0
  100. 10470 DATA0,0,0,0,0,0,0,0
  101. 10480 DATA0,0,0,0,0,0,0,0
  102. 10490 DATA0,0,0,1,255,128,15,255
  103. 10500 DATA240,63,255,252,255,255,255,0
  104. 10510 DATA0,0,0,0,0,0,0,0
  105. 10520 DATA0,0,0,0,0,0,0,0
  106. 10530 DATA0,0,0,0,0,0,0,0
  107. 10540 DATA0,0,0,0,0,0,0,0
  108. 10550 DATA0,0,0,0,0,0,0,0
  109. 10560 DATA0,0,0,0,0,0,0,0
  110. 10570 DATA0,254,0,3,255,128,15,255
  111. 10580 DATA224,31,255,240,31,255,240,254
  112. 10590 DATA0,0,0,0,0,0,0,0
  113. 10600 DATA0,0,0,0,0,0,0,0
  114. 10610 DATA0,0,0,0,0,0,0,0
  115. 10620 DATA0,0,0,0,0,0,0,0
  116. 10630 DATA0,0,0,0,0,0,0,0
  117. 10640 DATA0,0,0,56,0,0,254,0
  118. 10650 DATA3,255,128,7,255,192,15,255
  119. 10660 DATA224,15,255,224,15,255,224,255
  120. 10670 DATA0,0,0,0,0,0,0,0
  121. 10680 DATA0,0,0,0,0,0,0,0
  122. 10690 DATA0,0,0,0,0,0,0,0
  123. 10700 DATA0,0,0,0,0,0,0,56
  124. 10710 DATA0,0,254,0,3,255,128,7
  125. 10720 DATA255,192,15,255,224,15,255,224
  126. 10730 DATA15,255,224,15,255,224,15,255
  127. 10740 DATA224,7,255,192,3,255,128,0
  128. 10750 DATA0,0,0,0,0,0,0,0
  129. 10760 DATA0,0,0,0,0,0,0,0
  130. 10770 DATA0,0,0,0,0,0,0,0
  131. 10780 DATA0,56,0,0,254,0,3,255
  132. 10790 DATA128,7,255,192,15,255,224,15
  133. 10800 DATA255,224,15,255,224,15,255,224
  134. 10810 DATA15,255,224,7,255,192,3,255
  135. 10820 DATA128,0,254,0,0,56,0,0
  136.